home *** CD-ROM | disk | FTP | other *** search
/ Freelog Special Freeware 31 / FreelogHS31.iso / ArgentCompta / FASTCAISSE / Setup FASTCAISSE.exe / {app} / A faire38.sql < prev    next >
Text File  |  2003-11-03  |  2KB  |  53 lines
  1. drop PROCEDURE "RCHCODE";
  2. drop PROCEDURE "RCHCODEBARRE";
  3. DROP PROCEDURE "RCHCODEMAG";
  4. DROP PROCEDURE "EFFACE_3";
  5. ALTER TABLE "ARTFOUR" DROP AJOUR;
  6. ALTER TABLE "ARTICLES" DROP AJOUR;
  7. ALTER TABLE "CHAINES" DROP AJOUR;
  8. ALTER TABLE "CLIENTS" DROP AJOUR;
  9. ALTER TABLE "ETATS" DROP AJOUR;
  10. ALTER TABLE "FOURNISSEURS" DROP AJOUR;
  11. ALTER TABLE "MACROS" DROP AJOUR;
  12. ALTER TABLE "PIECES" DROP AJOUR;
  13. ALTER TABLE "RAYONS" DROP AJOUR;
  14. ALTER TABLE "SOCIETES" DROP AJOUR;
  15. ALTER TABLE "VENDEURS" DROP AJOUR;
  16. ALTER TABLE "VENDEURS" ALTER "PASSWORD" TO "MOTDEPASSE";
  17.  
  18. CREATE PROCEDURE "VALEUR_STOCK"
  19. RETURNS
  20. (
  21.   "S_INDEX" INTEGER,
  22.   "S_RAYON" SMALLINT,
  23.   "S_DISPO" DECIMAL(12,2),
  24.   "S_INVENTAIRE" DECIMAL(12,2)
  25. )
  26. AS
  27. DECLARE variable P1 DECIMAL(12,2);
  28. DECLARE variable Q1 DECIMAL(6,2);
  29. DECLARE variable Q2 DECIMAL(6,2);
  30. DECLARE VARIABLE N1 INTEGER;
  31. DECLARE VARIABLE N2 INTEGER;
  32. BEGIN
  33. For SELECT INDX,RAYON,PMPA,DISPO,INVENTAIRE,DERFOUR FROM ARTICLES INTO :S_INDEX,S_RAYON,:P1,:Q1,:Q2,:N1 do
  34.   begin
  35.   IF (P1 IS NULL) THEN
  36.     BEGIN
  37.     SELECT MIN(DPA) FROM ARTFOUR WHERE INDXART=:S_INDEX AND CODEFOUR=:N1 INTO :P1;
  38.     IF (P1 IS NULL) THEN
  39.       BEGIN
  40.       SELECT MIN(DPA) FROM ARTFOUR WHERE INDXART=:S_INDEX INTO :P1;
  41.       END
  42.     END
  43.   S_DISPO = P1 * Q1;
  44.   IF (Q2 IS NULL) THEN S_INVENTAIRE = S_DISPO; ELSE S_INVENTAIRE = P1 * (Q1+Q2);
  45.   SUSPEND;
  46.   end
  47. END
  48.  ;
  49.  
  50. ALTER TABLE ARTICLES ADD PKEYR COMPUTED BY (RAYON*10000+FAMILLE*100+SSFAMILLE);
  51. SET GENERATOR VERSION_BASE TO 38;
  52.  
  53.